﻿Imports System.Text
Public Class BusinessLayer
    Public Function test() As Boolean

        Dim s As New Global_Visas_Data_Layer.DataAccess
        Dim sql As New stringbuilder
        With sql
            .AppendLine("select * from d_case where case_id = 651247")
        End With

        Dim dt As DataTable = s.GetSQLDataTable(sql.ToString)
        If Not dt Is Nothing Then
            If dt.Rows.Count > 0 Then
                Return True
            Else
                Return False
            End If
        Else
            Return False
        End If
    End Function
    Public Function test(ByVal caseid As Long) As DataTable

        Dim s As New Global_Visas_Data_Layer.DataAccess
        Dim sql As New StringBuilder
        With sql
            .AppendLine("select * from d_case where case_id = " & caseid)
        End With

        Dim dt As DataTable = s.GetSQLDataTable(sql.ToString)
        If Not dt Is Nothing Then
            If dt.Rows.Count > 0 Then
                Return dt
            Else
                Return Nothing
            End If
        Else
            Return Nothing
        End If
    End Function
End Class
